sub main()	dim s as string,d as date	dim f as file	msgbox("Read\Write File Test")	msgbox("This program will create file in your hard drive")	f = getFile(system.volume(0).AbsolutePath & "BasicScript.txt")	dim tIn as textinputstream, tOut as textoutputstream	if f.exists == true then		tIn = f.OpenAsTextFile()		s = tIn.readall()		tIn.close()		msgbox(s)	end if	tOut = f.CreateTextFile()	s = "msgbox(\"Hello\")\n" & s	tOut.write(s)	tOut.close()	    end sub